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bP AAAAAAAAAA TT SS PP AAAAAAAAAA 3 
Pp AAAAAAAAAA TT SS PP AAAAAAAAAA F 
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LL III SSSSSSSS 3 
LL 11 Ss 3 
LL II SS j 
LL I] SS 3 
LL I] Ss | 3 
LL I] SSSSSS 3 
LL II SSSSSS : 
LL II ss 3 
LL I] SS 3 
LL I] ss 3 
LL I] ss 3 
LLLLLLLLLL IIIII1 SSSSSSSS 3 
LLLLLLLLLL L111 SSSSSSSS : 
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PATSPA 1$- -Sep-1984 + 99: 2:57:14 VAX=-11 Bliss=-32 V4.0-742 1 
14-Sep-1984 12:52:47 DISKSVMSMASTER:CPATCH  SRCIPATSPA.B32- 79 ea) 
L MODULE PATSPA (SIF BvAnioant EQL 1 
ADDRESSING_MODE CexTeR NAL = LONG_RELATIVE, 
ONEXTERNAL = LONG RELATIVE), 


1 
DENT = *v04-000' 


Weare 
~n 


BEGIN 


' 
LRAT 
' 


is COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
is DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
i® ALL RIGHTS RESERVED. 


0 
0 
9 
0 
0 
1 
1 
1 
1 
1 
1 * 
1 * 
: * 
* 
1 !* THIS SOFTWARE aS FURNISHED aes A LICENSE AND MAY BE a AND gg be * 
1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
1 !* INCLUSION OF THE ABOVE cy cadets NOTICE. THIS SOF TWARE OR ANY OTHER * 
1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
' !* TRANSFERRED. od 
* 
1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
! '® CORPORATION. * 
* 
1 * 
1 * 
1 * 
1 * 
1 * 
1 
1 
1 
1 
1 
1 
i 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


pe fofofololololololelelelelelolelelolololelelolelololelo) 
PIMPIPNNINININ 2 2 2 PO OS SS CDOOOOCOCOO 


NAME WN OOD NOAUS WN OO OONOUS WN OUOONOUS WR 


!® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 


sssssssssssssssssssssssssssssssssssss 


4 - SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
i® 

3 '® 

03 RRR REE EEE 
! 

03 
03 'e+ 
Os FACILITY: PATCH 
Bee ! ABSTRACT: THIS ROUTINE HANDLES FREE PATCH AREA, ALIGNMENT, ALLOCATION, AND EXPANSION. 
9040 ! ENVIRONMENT: VAX/VMS 
004 AUTHOR: K.D. MORSE , CREATION DATE: 17-NOV-77 
0044 i MODIFIED BY: 
0046 v03-003 MTROO25 Rhodes yn -1983 
0047 Modify routine PRISEXe AREA to signal an ERROR (severity) 
0048 message when an expansion request is made while patching 
srt a file in ABSOLUTE mode. This will cause the current 


PATCH command prompt. Files may NOT be , sapended in absolute 
mode, as could result from a command Like: 

PATCH> REPLACE/I NST 20="movl r0,r1' 

NEW> *movl r0,r 

NEW> *bneq 206' 

NEW> EXIT 


NOU EWN 0 OD NAUE WN 0 OONOAUE WN (OO OONAUESWN (OOD ONAUS WR“ OOONOUSWh 


DPV TT BS BS BS BE EE BB WANNANNWNWN WIAD POND NINIPONIPDD 2 2 St OO Oa oe 


1 
! 
i 
] 
t] 
' 
command to be aborted and the user is returned back to the 
' 
! 
i] 
! 
! 
! 
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| 04-000 1er8ep= 188s 12:85:4? — DISKSUMBMASTERSCPAT ON SACIPATSPA.B3209%° (15 vor 
; 8 6038 7 | v03-002 MTROO16 Mike Rhodes 03-Nov-1982 

: 9 059 1! Modify PATSBUILD_ISE to accept one additional argument which 

; & 0060 1! is the address to be modified. This address is used for INSERT 

; 6) 0061 1! and REPLACE commands when patching protected shareable images. 

; © Boog 13 The attributes of the image section which contains the address 

 ¢ p90 7% borne modified will be propagated to the newly created default 

; @& 064 1! patch area. 

; & 0065 1! . 

; 66 0066 1! v03-001 MTROOO7 Mike Rhodes 14-Jun-1982 

: oF 0067 1! Use share oxstes messages. Affected modules include: 

$ 68 0068 1! DYNMEM.B32, aanes Agee PATCMD.B32, PATIHD.832, PATINT.832, 

; $8 34 ! PATIO.B32, PATMAI.B52, PATMSG.MSG, PATWRT.B32, and PATSPA.B32. 

; 0071 1! The shared messages are defined by DYNMEM.B32's invocation of 

; Bong 1} SHRMSG.REQ and we sieely Link against these symbols. They are 

3 ? th ' declared as external literals below. 

; 0075 1! v03-000 MTROOO1 Mike Rhodes 15-Mar-1982 

: 0076 1! Modify routine PATSEXP_AREA to allow PIC SHR images to be 

: 77 0077 1! patched using default patch area which may be expanded as 

sr 0078 1! needed. Also, removed the old 50% growth area logic which 

3 ie ith ! has been made obsolete by the above change. 

; 681 0081 1! v02-008 MTROOO1 ; Mike Rhodes 15-Sep-1981 

s 82 0082 1! ye routine PATSBUILD_ISE. The location algorithm 

; «683 0083 1! for placing the PATCH ISE/ISD pair in the ISE list is 

; 0084 1! as follows: j : 

5; § 0085 1! The PATCH ISE/ISD pair are located in the ISE list 

s 8 0086 1! FOLLOWING the Last ‘'Normal’’ ISD and PRECEDING the 

; 44 4 44 : } first Non-Based Global or Stack ISDs. 

; 689 0089 1! Included in the modification is the definition of two new | 
le... 0090 1! variables, PREV_ISE_PTR = Pointer to Previous ISE, and. 

; 0091 1! TEMP - Holds the FLINK from the previous | 
; 4 a4 ’ ISE till its put into the new ISE. | 
; 9 0094 1! v02-007 PCGO001 | Peter George 02-F EB-1981 
: 44 i444 ' Add require statement for LIBS:PATDEF.REQ 
-) oF 0097 1! v0206 CNH0038 _ Chris Hume 4-0ct-1980 — 16:00 

; «98 0098 1! Last Cluster will now remain set when new Patch Area is added. 

; WwW 0099 1! Patch Area will be allocated at a distance one half the size of 

: +s Bigs ! the Last Cluster (beyond its end). 

; Tee Hh 1 | vO105 CNHO023 Chris Hume 16-Nov-1979 = § 14:00 3 | 
: 103 0103 1! Turn off ISD$V_LASTCLU for all ISD*s when PATCH Area is added 

3: 104 0106 1! to an image. Also unrecognized .onguages will now be processed 

: 44 Bige ' as though they were MACRO. (PATBLD.B32 VO117, PATMAI.B32 V0228) 

; 107 0107 1! v0104 CNHOO15 Chris Hume ‘ 27-Sep-1979 = 11:30 

: 108 0108 1! Changed GBLWARN message from a warning to an informational. 

3; 109 0109 1! Added section name to the Meet Added EXPSHRPAT error. 

3 179 Rito ' : (PATMA] .B32 VO0225, PATMSG.MDL V0203, PATARI.B32 v0112) 

: 1¢ Bile 1 ! MODIFICATIONS: 

3; #411 0113 1! 

s 116 0114 1! NO DATE PROGRAMMER PURPOSE 
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EXTERNAL ROUTINE 


| 
| 
} 


<v 
Oo, 
a4 


SPA 
4-000 
MACROS: 


EQUATED SYMBOLS: 


OWN STORAGE: 
OWN 
PAT_AREA_NAME : VE (ZASCIC 'PAA') 


NIT 
PA_NAME_BSC : VE TI 


I 
AL 


>r- 


: EXTERNAL REFERENCES: 


EXTERNAL 
PAT$GL_PAL_LHD : REF BLOCKC,BYTE), 
PATS$GL_ERRCTODE, 

PAT$GL_CONTEXT : BITVECTOR 


: BITVECTOR ($21, 
R . 


. Jj 
PATSGL_PATAREA : -BYTES, 
PATSGL-IHPPTR : REF BLOCKL,BYTEJ, 
PATSGL_ISELHD, 

: REF BLOCKC,BYTE), 
NMX 


wo 
~< 
—m 


: VECTORC,LONG), 


EXTERNAL ROUTINE 
PATSALLOBLK : NOVALUE, 
PATSCREMAP : NOVALUE, 
PATSDEFINE_SYM : NOVALUE, 
PATSF IND_SYM, 


PATSFREEZ, 
PATSMAP_ADDR : NOVALUE; 
EXTERNAL LITERAL 
Define shared message references. 
PAT$_CLOSEIN 


PAT$~CLOSEOUT, 
PAT$_OPENIN 


(resolved @ Link time) 


SIS SSSR SSSR eS ee SSS Ree eS SSeS 
wn DONA MNEWN OS OONOM EWN (OVO ONOUSWN (OO ONAUE WN OOONAUS WN O0M 


PATS$_READERR 
PAT$-SYSERROR, 
PAT$_WRITEERR: 
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_LONGWORD-A_BYTE, CHSPTR( 
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v4. 6 
:CPATCH.SRCIPATSPA.B32 (2) 


Next pete? area name 


Patch area listhead 

Error code 

Context bits 

CLI flags. 

Pointer to image header : 

Free patch area descriptor pointer 
Pointer to patch area of image header 
ISE List Head 

Pointer to tail of ISE table 

Max VPN of image sections in new image 
Max VBN of jnope sections in new image 
Number of blocks in new image 

Addresses of last image section mapped 
Head of command argument List 

Pointer to current default symbol table 
Pointer to Listhead entry for user-defined 


Allocates free storage 5 
Creates and maps image sections 
Defines a symbol 

Find symbol definition 

Allocates and zeros free storage 
Maps an image address 


Error closing input file. 
Error closing output file. 
Error opening input file. 
Error opening output file. 
Error reading from file. 
System Service error. 
Error writing to file. 


AT_AREA_NAME, 1)); ! String descript 


GLOBAL ROUTINE PATSALIGN_CMD : NOVALUE = 
"FUNCTIONAL DESCRIPTION: 
word, longword, quadword, or page. 
with a value of the patch area address. 
SIGNALed and the alignment does not take place. 


descriptor remains unchanged. 


the name is redefined to the new patch area address. 


SIN NN AAA AAA AAAI 


! 
i 
i 
i 
i 
i 
i 
i 
! 
i 
i 
i 
i 
i 
i 
i 
sym 
} FORMAL PARAMETERS: 

none 

IMPLICIT INPUTS: 

The symbol name descriptor is set up by the parser. 
! 
free memory handler. 

IMPLICIT OUTPUTS: 

! 

i 

! 

i 

1 

i 

i 

i 

i 

! 

i 

i 

i 
i 
i 
1 

i 


none 
4 i ROUTINE VALUE: 
st none 
COMPLETION CODES: 
none 


SIDE EFFECTS: 


created. 
BEGIN 


LITERAL 
ONE_BLOCK = 1; 
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42 Page 7 
DISKSVMSMASTER: CPATCH.SRCJPATSPA.B32;1 (3) 


! Performs align commands 


This routine aligns a free patch area to the requested boundary, 

The patch area bytes between the 
old address and the rounded address are lost for patchin 
The symbol name provided in the command is entered into 


urposes. 
ene symbol List 


If the free patch area is not 
large enough to be rounded to the appropriate boundary, an error is 
The free area 


If the symbol name was previously defined, a message is produced and 


aU toning the patch area to a byte boundary will merely cause the 
ol to be defined as the next free byte of patch area. 


The context bits have already been set up for the command. 


The user-defined symbol table has been initialized as has the 


The default patch area is aligned to the appropriate boundary. 
If there is not enough patch area to align, a new patch area is 


' Number of blocks to expand patch area by 


PATCH _ARER _ADR, 
PATCH_AREA_S1Z; 


F 14 

PATSPA 16-Sep-1984 00:57:14 VAKX-11 Bliss-32 v4.0-742 ) | PAY 
v04-000 18=308- 138 90:35:15 ST EKSUMGHASTER. cbaten. CRCIPATSPA.B32- haa (3) v0é 

26 TEMP_SYMTB ! Temporary symbol table pointer 

26 ALIGA FACTOR i Alignment boundary 

264 C PIR : Ber BLOCKL BYTE), i String descriptor pointer 

265 aH CEN RY_PTR, Pointer to symbol entry 

i 


Address of : igned patch area 
Size of aligned patch area 


e+ 
a Output current patch area statistics before alignment. 


$FAO_ TT_OUT('old patch area size: 'XL', .PATSGL_PATAREACD 
$FAO_TT_OUT('old patch area address: '!XL', .PATSGL~ _PATAREACD 


'e4 

i Check for conflicting patch area requests and set up alignment factor. 
an B alignment pated ok: set to the number of bytes in a longword, word, 
if PATOL. CONTEXTEALION BYTE) 


ALIGN FACTOR = A_BYT 
Hear CONTEXTCALIGN~ BORD 


FACTOR = A_WORD 
eae TCORTEXT CAL IGN™ YONG 


SC$W_LE 
SC$A_PO 


Morrone nofonononorenonofenererrornor 
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ALIGN_FACTOR = A_LONGWORD; 

. Heir" CONTEXT CAL IGN” QUAD] 
290 N_FACTOR = A_QUADWORD; 
34 ae PATSOL TOORTEXTCALIGN@ PAGE) 
293 ALIGN_FACTOR = A_PAGE; 
294 
295 '4¢ 
296 ! Now round up image header patch area address and alter patch area 
344 ' size to reflect any lost bytes. 
299 PATCH AREA_ADR = ((.PATSGL Ages ety POINTER) + (.ALIGN_ grat 9 rh gee, ALIGN_FACTOR) * .ALIGN_FACTOR; 
300 IF C.PATCH. ~AREA_ADR NEQA .PATS$GL_PATAREALDSCSA_POINTER]) ' t rounding” actually occurred 
301 (. PATSGL_PATAREACLDSC$O_ CENCTH EQL 0) ! no patch space exists 
302 THEN 
303 BEGIN 
304 PATCH_AREA_SIZ = geetoet. PATAREACDSCS$W_LENGTH] + 
305 AT$GL =PATAREACDS CSA POINTER] - .PATCH ~AREA_ ADR; 

306 if (.PATCH_AREA_ st LEQ™0 ! Chéck no patch area left 
308 — BEGIN 
309 LF (.PATS$GL_PATAREALDSCSA_POINTER] EQLA .PATSGL_IHPPTRCIHPS$L_RW_PATADR]) 
31! ~~ PATSEXP_AREA (ONE_BLOCK) ' Get another block 

31 SIGNAL (PAT$ Aa -PAT$SGL_PATAREACDSCSA_POINTER], 

31% ATAREACDS Coy LENGTH]); 

15 PATCH_AREA_ADR = ((, PATSCL PATAREALDSCSA_POIN NTeR) + 

318 LIGN N_FACTOR= rte ALIGN_FACTORS ot gat ion. FACTOR; 

17 PATCH_AREA_ S122 PATSGL_PATAREACLBSC$W_LENG 

318 PATSGL LBATAREACDSCSA. POINTER .PATCH_AREA_ADR; 
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18-Sep-1984 99 57.14 VAX=11 Bliss-32 V4.0-742 o 
14-Sep-1984 12:52:47 DISKSVMSMASTER: CPATCH SRCIPATSPA.B32: . * (3) 
PATSGL _PATAREA DSC CoA pornted = ,PATCH_AREA_ADR; ! Set rounded address in header 
PATSGL PATAREALDSC$W_LENGTH] = .PATCH_AREA_S1Z; ! Set rounded size in header 


'e4 
4. Output current patch area after alignment. 


$FAO_ TT_OUT('new patch area size: 'XL*, .~PATSGL_PATAREALDSC$W_LENGTH]); 
$FAO_TT_OUT('new patch area address: ixt': -PATSGL~ ~PATAREALDSC$A_P POINTER); 


lee 
i Now enter the symbol into the user-defined symbol table with a value equal 
: _to the aligned patch area address. 


isym ENTRY PTR = PATSFIND_SYM(.LIST_ELEM_EXP1(.PATSGL_HEAD -LST)); ! Check for previously get ined symbol 
‘IF TSYM_ENTRY_PTR NEQA 07 i Yes, was previously defined 
i THEN ! Output informational message 


BEGIN 
SIGNAL (PATS atte 


' 

i 4, .SYM_CHCOUNT(.SYM_ ENTRY PTR), SYM_NAME(.SYM_ENTRY_PTR), 
i .SYM_VALUE(.SYM ENTRY-PTR), .PATCH AREA A_ADR); 

; TR) = .PATCH_AREA_ADR; ' Set new value 


SYM_VALUE (. sv. ENTRY. PTR 
! END™ 

'ELSE 

TEMP _SYMTB = .PATSGL SYATeRTR: 
PATSGL_SYMTBPTR = .PATSGL 


_SYMHEAD; 
PATSDEFINE _SYM(. LIST ELE EXP1(.PATSGL_HEAD_LST), .PATCH_AREA_ADR, TRUE); ! Enter into List 
PAT$GL_SYMTBPTR = .TEMP_SYMIB; 


RETURN; 
END; ! End of PATSALIGN_CMD 
-TITLE PATSPA 
-IDENT \v04-000\ 
.PSECT _PATSPLIT,NOWRT,NOEXE ,0 
1C Q0000 P.AAA: .BYTE 28 . : 
68 63 74 61 70 20 64 6C 6F 00001 «ASCII \old patch area size: 'XL\ 3 
20 20 20 20 3A 65 7A 69 73 00010 : 
1C 0001D P.AAB: .BYTE 28 3 
68 ¢3 74 61 70 $9 64 6C 6F OQOOIE eASCII \old patch area address: '!XL\ 3 
20 3A 73 73 65 72 64 64 61 BRR. § 
1C QO03A P.AAC: .BYTE 28 ; 
68 63 74 61 70 20 77 65 $f 00038 -ASCII \new patch area size: 'XL\ : 
20 20 20 20 3A 65 7A 69 73 OOO04A 3 
68 63 74 61 70 20 77 65° 6E 00 * ,ASCIT> \new patch area address: '!XL\ ; 
20 3A 73 73 65 72 64 64 61 00067 : 


.PSECT _PATSOWN,NOEXE ,2 
41 50 03 00000 PAT_AREA.NAME 


= 
— 


<3>\PAA\ 3 


ie Re Re Oe Be Oe Bee Oe Oe Oe Oe Bee Oe OHO Oe Oe Oe Oe Re SHEE OH ee we OH we Be Be OHO we Oe Be Se SESE SESH SH Oe ee ee Oe SESH SEH SE BH oe 


00000003 00004 PA_NAME_DSC: 


H 14 
PATSPA 16-Se V4.0-742 Pa 1 
v04-000 14-Se :CPATCH.SRCIPATSPA.B32; 1 eb (35 


soo —-o 


ESS PAT_AREA_NAME+1 


Oo 


ee ~6NNNr 
morn | 
oa 


MMMM MMmMmMmMmmMmmMmmmmmmmmccn > 
=> 


PATS$FAO_OUT, PAT$GL_PAL_LHD 

“ PATSGL_CONTEXT 

RN PATSGL “FLAGS, PATS$GL_IMGHDR 

TRN PATSGL-PATAREA, PATS$GL_IHPPTR 

RN PATSCL~ ISELHD, PATSGL_ISETAIL 
NEWVPN NX 


Att aa hunhun 
2 
wv 

> > 
—_ 
wn 
a 
a 
re 
zz 
Pd 
o 
or 
_—J 
m 


PATSGL_ISVADDR 
TRN pataet HEAD cS; 
PAT TR 


TRN PATS6L “SYMHEAD, PATS$ALLOBLK 
TRN PAT TSCREMAP. PATSDEF EF INE ~™ 


>< Ot OK OK OE OO OE OK OE OO KH 
a» 


-EXTRN PATS_ a eeece PATS_WRITEERR 
-WEAK ACCESS_C 


.PSECT _PATSCODE,NOWRT,2 


OFM OOOVUWNO 


O7FC 00000 .ENTRY PATSALIGN_CMD, Save R2,R3,R4,R5,R6,R7,R8,- ; 
5A 00000000G EF 9E 00002 MOVAB PATSGL SYMTBPTR, R10 ; 
59 00000000G EF 9E 00009 MOVAB PATSE AD_OUT, R9 : 
58 00000000' EF 9E& 00010 MOVAB Pp AAA : 
57 00000000G EF 9€ 00017 MOVAB PATSGL_CONTEXT, R7 : 
56 00000000G EF 9E O001E MOVAB PATS$GL~PATAREA, R6 : 
7E 00 B6 3C 00025 MOVZWL a@PATS$GC_PATAREA, -(SP) > 1423) 
58 DD 00029 PUSHL R8 F 
69 02 FB 0002B CALLS i, PATS$FAO_OUT : 
50 66 DO 0002E MOVL PATSGL _PATAREA, RO + 1424) 
04 AO 0D 00031 PUSHL  4(RO) F 
1D AB 9F 00034 PUSHAB P.AAB ; 
69 02 FB 00037 CALLS #2, PATSFA F 
03 67 06 €1 00034 BBC #6, PATSGU OP OUTEXT, 1$ 3 143 
53 01 D0 0003€ MOVL #1, ALIGN FACT + 143 
03 67 04 £1 00041 1$: BBC #4. PATSOC CONTEXT, 2$ > 143 
53 02 DO 00045 MOVL #2, ALIGN > 143 
03 67 02 £1 00048 2$: BBC #2, PAT$GC_CONTEXT, 3$ > 143 
53 04 DO 0004C MOVL #4, ALIGN FACTOR > 143 
03 a? 03 £1 OOO4F 3S: BBC #3, PATSGC CONTEXT, 4$ > 143 
53 08 DO 00053 MOVL #8, ALIGN FACTOR : 144 
05 67 05 a 00056 4$: BBC #5 PATSGE CONTEXT, 5$ > 144 
53 0200 8F 3C OO0SA MOVZWL #512, ALIGN FACTOR > 144 
52 66 DO 0005 5s: MOVL parses ABATAREA. R2 > 145 
50 04 A2 00 00062 MOVL 4(R : 
51 FF A340 9E 00066 HOVAB -1 (ALIGN FACTOR) CROJ, RI : 
51 53 Cé 00068 DIVL ALIGN_FACTOR, : 
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PATSPA 
v04-000 
55 51 
50 
5 
51 55 
54 51 
51 000000006 
14 «OA 
00000000vV EF 
006D811A 
000000006 9° 
51 53 04 
51 
55 51 
51 
50 51 04 
54 50 
50 
04 Ad 
60 
7E 00 
3A 
69 
50 
04 
57 
69 


6A 000000006 

50 ana * 
00000000G EF 

6A 


; Routine Size: 273 bytes, Routine Base: 
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_PATSCODE + 0000 


Pr SF OOO CODOON NIN AINO 


MOM NYVWN™OOrom@® O~NYvrMm 


14. Sep-19 4 00:57: 
12-80 8=1 382 35; 
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o 
wn 


~N 
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8$: 


10$: 


VA Bliss-32 V4.0 
DISK 

GN_FACTOR, R1 
CH~AREA 


PATCH_AREA_ADR 
ABR, RO 


14 
47 
ALI 
PAT 
“8 
(R2) 
10$ 
(R2), R2 

0, R2, R1 

PATCH_AREA_ADR, R1, PATCH_AREA_SIZ 


PATSGL_IHPPTR, R1 
RO, 20TR1) 


#1 

#1, PATSEXP_AREA 
#*M<RO,R2> 

#7176474 

#4, LIBS$SIGNAL 
PATSGL_PATAREA, RO 
4(RO), “ALIGN_FACTOR, R1 


ALIGN_FACTOR, R1 
ALIGN FACTOR, Rt, PATCH_AREA_ADR 


(R 
siROS 


PATCH _AREA_ SIZ, (RO) 
aPATSGL _PATAREA, -(SP) 


P.A 
#2 AC ATSFAO OUT 
PATSGL _PATAREA, RO 


on MPATSFAO OuT 
PATSGL_SYMTBPTR, TEMP_SYMTB 
PATSGL SYMHEAD, “PATSGC_ SYMTBPTR 


PATCH_AREA_ADR 
PATSGC_HEAB_LST, RO 
4(RO) 


#3, PATSDEFINE S 
TEMP_SYMTB, PATSOL _SYMTBPTR 
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J 14 
PATSPA 16-Sep-1984 00:57:14  VAX=11 Bliss-32_V4.0-742 Page 12 PA 
v04-000 14-Sep-19 4 99:30 h DISKSVMSMASTER: PATCH. SRCIPATSPA.B32: 1° (4) vO 
3 2 1306 } GLOBAL ROUTINE PATSBUILD_ISE (ISE_PTR,VPN,VBN,PAGE_CNT,ADR) : NOVALUE = ! Builds an ISD and enters it into I : 
; 354 1504 1 !44 
3 2? 1382 } : FUNCTIONAL DESCRIPTION: 
3 ger 1809 7 | This routine builds a new image section descriptor. It is a normal 
; 358 1508 1! type image section with read-write, copy-on-reference attributes. 
3 SOP 1509 1! The virtual page number, virtual block number, and the page count 
; 360 1510 1! are input parameters. fhe address of the image section table entry, : 
; 361 1511 1! built around the page section descriptor, is returned. The image $ 
3 a6 1216 : section entry is Linked into the table. : 
; 64 1514 1 ! FORMAL PARAMETERS: : 
3 365 15158 1! $ 
; 366 1316 1? ISE_PTR = Pointer to image section entry built : 
3 gor aur 63 VPN = Virtual page number of image section : 
; 368 1518 1! VBN = Virtual block number of image section 
; 369 1519 1! PAGE_CNT = Number of pages in image section | 
3 A 1330 : ADR = COPTIONALJ Address which is to be modified by the patch. 
; fe 1522 1 ! IMPLICIT INPUTS: 
; ive 1525 1! 
3 376 1524 1! The image section table is set up. 
: 375 1525 1! 
; 376 1526 1 ! IMPLICIT OUTPUTS: 
3. ae 1260 1! 
3; (Uae 1528 1! A new image section descriptor is built. 
; 379 1529 1! 
; 380 1530 1 ! ROUTINE VALUE: 
ae.) 1531 1! 
s see 332 1! none 
; 383 1533 1! 
3; «384 1534 1 ! COMPLETION CODES: 
; 385 1535 1! 
; 386 1536 1! none 
: 387 1537 1! 
; 388 1538 1! SIDE EFFECTS: 
> 389 1539 1! : ; 
: 390 1540 1! If the ADR parameter is included in the call, we will propagate the 
; 391 1541 1! the image section attributes (of the image section containing the 
; 305 1346 : address specified by ADR) to the newly created default patch area. 
3; 394 1544 1 !-- 
5 29 1545 1 
; 396 1546 2 BEGIN 
; 397 1547 2 
3; 398 1548 2 BUILTIN 
; 399 1549 § NULLPARAME TER; 
: 4600 1550 
: 401 1551 2 LOCAL : 
; 402 1552 2 PFC : BYTE ! Page Fault Cluster size 
; 403 1553 § TYPE : BYTE, ! Type of image section 
3; 404 1554 FLAGS, ! Image section Flags 
; 405 1555 § IDENT ! Image section Ident ; 
: 406 1556 PREV_ISE_PTR : REF BLOCKC,BYTE), ! Pointer to previous Image Section table en) 
3; 407 1557 2 TEMP”: REF BLOCKL,BYTE), ! Holds the FLINK from previous ISE 
; 408 1558 2 LOCAL_ISE_PTR : REF BLOCKC,BYTE), ! Image section table entry pointer 
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K 14 
16-Sep-1 
14-Sep-1 
ISD_PTR : REF BLOCKC,BYTE); 
le 
' Allocate space for new soege section table 
! weeee UNTIL SYSTEM IS UPDA 
! weeee SIZE TO USE. 


iF _PATSK_LENPRIV GTR ISDSK_LENPRIV 


m 
i- 
uo om 
m 


: Now Link the new —_ into the table. 
} _ is accomplished by 
i 


OCAL ISE pif -PATSGL JSELHO; 
REV_TSE_PTR = .LOCAL 
D_PTR = CHSPTR (. LOCAL. Ise. "PTR, ISESC_SIZE); 


'¢ 
i 
' 
' 
i 
ie 
L 
Pp 
IS 
UNTIL ¢ tte. ISE_PTR EQL 0) 

ISD PTRETSDSB_ TYPE] EOL ISD$K_USRSTACK) 


E 
FN NOT NULLPARAMETER (5) 


IF .ADR GEQ .ISD_PTRCISD$V_VPN] “9 
AND .ADR LEQ ((.15D -PTRCISDS$V 
-ISDIPTREIS 


( 
( 
( 
B 
I 
T 


PREV_ISE Prk = = ,LOCAL_ISE_PTR 
LOCAL ISE_PTR = .LOCAC_ISE PTRCISESL_NXT 
D_PTR ="CHSPTR (.LOCAL_ISE_PTR, ISESC .. 


lee 


LOCAL. ISE,PTR = CHSPTR (; SE PTR 0); 

TEMP = .PREV PTRCISESL_N NXTI 

PREV_ISE Prats SES NXTISED = "LOCAL _ISE_PTR:; 
LOCAC_ISE_PTRCISESC_NXTISE] = . TEMP? 


'e¢ 
i! Initialize the image section table information. 


LOCAL. ISE_PTRCISESL_MAPVST) = 0: 
LOCAL~ISE-PTRCISESL-MAPVEND) = 0; 


RIPIPIPPINOPIPYINIPOPINPINPININIWI WA BS & B&H BE ANVMININI Iinnonononononononononononononononororororonrny 


9 
9 


ent 
ED TO CONTAIN AN IDE 


PATSALLOBLK(ISESC_SIZE+PATSK_LENPRIV, .ISE_PTR) 
PATSALLOBLK(ISESC_SIZE+ISDSK_LENPRIV, .ISE_PTR); 


ISD ~PIRELSD8V- GBLJ AND NOT .15D SPIRE TSDSV. -BASEDJ) ) DO 


_VPN] + 
DSWIPAGCNT]) *9) = 1 


VAX-11 Bliss-32 V4.0-742 Pa age 1 
DISKSVMSMASTER: (PATCH. SRCIPATSPA.B32;1 (4 


! Image section descriptor pointer 


ENT PERFORM TEST ON WHAT 


traversing the Image Section Table at se, for any 
on-Based Global or Stack ISDs which follow the last ‘'N ; i 
s found, the Links in the affected ISEs are modified to oP og the new PATCH ISE. 


' Get the List head. 
' Set PREV = Current for first pass. 
! Point to the first ISD in the List. 


hen this Location 


Was an address included in the call? 
If so, then check to see if it maps 
into this ISD. 


It does map into this ISD, so save the 
attributes for the new default patch area 
Page Fault Cluster size. 

Image section Flags. 

Image section Type. 

Image section Ident. 


Save the address of the just checked ISE. 
Advance the pointer to the next ISE. 
Point to the next ISD Bot 


iA At this point we should be positioned to the location for inserting the new PATCH ISE/ISD pair. 


' Pick up the address of the new ISE. 
' Save the 

! Set FLINK to the new ISE. 

i Remember to point to the next ISE. 


FLINK to next ISE. 


~w 


14 
PATSPA 18-Sep-19 4 00:57:14 VAX-11 Bliss-32 V4.0-742 14, 
v04-000 1278087188 90:35:15 DISKSVMSMASTER: CPATCH. SRCIPATSPA. B32. is * i) 
: 466 1616 LOCAL_1SE_PTREISESL_INGVST] = 0; 
: 467 161 LOCAL-ISEPTRCISESL-IMGVEND) = 6; 
: 4668 1618 
: 469 1619 ++ 
: rth 1 y 4. Now build the image section descriptor. 
: 47 16 ; iSD_PTR = CHSPTR(.LOCAL_ISE _PTR, ISESC_SIZE); ' Point to ISD 
: 47 16 | e¥eeee THIS SHOULD CHANGE WHEN IDENT FIELD IS DEFINED FOR PROCESS PRIVATE IMAGE SECTIONS. 
; 47% 16 4 id ISD =PTRCISDSW_ SIZE] = (IF (PATSK_LENPRIV GTR ISDSK_LENPRIV) THEN PATS$K_LENPRIV ELSE ISD$K_LENPRIV); 
: 476 1626 isb PTR ISD$W_ SIZE) = ISDS$K_LENPRIV; 
+ 477 1627 ISD"PTRCISD$W_PAGCNT] = .PAGE_CNT; 
: 478 1628 ISD“PTRLISD$L-VPNPFCJ = .VPN; 
: 679 1629 ISD-PTRCISDS$SB_PFC) = 0; 
: 480 1630 2 ISD-PTRCISDSL-F LAGS] = 0; 
> 481 1631 ISD-PTRCISDS$V-CRFJ = TRUE; 
: 482 1632 ISD-PTRCISD$V-WRT] = TRUE: 
> 483 163 ISD-PTRCISDS$V— ~MATCHCTLI = ISD$K_MATNEV; 
> 484 1634 2 ISD-PTRCISD$B-TYPE] = ISDS$K_NORMAL; 
: 485 1635 2 ISD-PTRCISD$L-VBNJ = .VBN; 
: 686 1636 2 ISD ~PIRELSDSL~ IDENT) = 0; 
: rit 183 $ IF NOT NULLPARAMETER (5) 
: ! Should we propagate the atched"' 
; 489 1639 2 THEN i image etiied atistecnaal 
: 490 1640 3 BEGIN 
5 491 1641 3 ISD_PTRCISD$SB_PFC) = .PFC; 
: 492 1642 3 ISD-PTRCISDSL_FLAGS] = .FLAGS; 
: 493 1643 3 ISD-PTRLISD$B_TYPE] = .TYPE; 
: 494 1644 3 ISD-PTRCISD$SL-IDENT] = .IDENT; 
: 495 1645 2 END; 
: 496 1646 2 
: 497 1647 2 RETURN; 
: 498 1648 1 END; ! End of PAT$BUILD_ISE | 
| 
} 
01FC 00000 -ENTRY PATSBUILD_ISE, Save R2,R3,R4,R5,R6,.R7,R8 ; 1502) 
04 AC DD 00002 PUSHL ISE_PTR : 1568. 
28 DD 00005 PUSHL # ; 
000000006 EF 02 FB 00007 CALLS #2, PATSALLOBLK : 
51 000000006 EF DO O000E MOVL  PAT$GL_ISELHD, LOCAL_ISE_PTR : 1578 
53 51 DO 00015 MOVL LOCAL_TSE_PTR, PREV_TSE_PTR : 1579. 
50 14 Al 9E 00018 1$: MOVAB 20(R1), ISD PTR : 1580. 
51 05 0001C TSTL LOCAL_ISE_PTR : 1582. 
58 13 OOO1E BEQL 4$ ; 
FD = «8F 0B AO 91 00020 CMPB 11(ISD_PTR), #253 > 1583 | 
54 13 00025 BEQL 4$ : 
05 08 AO £9 00027 BLBC B(ISD_PTR), 2% > 1584. 
48 09 AO 01 €1 000¢8 BBC #1, 9TISD _PTR), 4$ ; 
05 6C 91 00030 28: CMPB (AP), > 1586 | 
3E 1F 00033 BLSSU -3$ ; 
14 AC D3 00035 TSTL gO (AP) : 
39 13 00038 BEQL $ : 
52 04 Ad 15 00 ai 0003A EXTZ2V #0, #21, 4(ISD_PTR), R2 > 1588 
52 52 09 78 00040 ASHL #9, Re, R2 : 
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0 12286 8= 1384 1953519 DISKSVMSMASTER: CPATCH. SRCIPATSPA.B32: 1° (5 
500 GLOBAL ROUTINE PATSEXP_AREA (NUM_BLKS, ADR) : NOVALUE = ! Expands patch area 
lee 


i FUNCTIONAL DESCRIPTION: 


This routine expands the read-write patch area defined in the image 
header. If there is no patch area, then an spage section descriptor 

is created for it. If the image section which is being created is a 
due to either an INSERT or REPLACE command then the attributes of the 
image section are propagated to the new image section. In either case, 
the image header is updated to describe the expanded patch area. 


If the patch area is mapped to the highest address used during this 
pecee session, then the patch area can be expanded contiguously. 

n this case, the image section descriptor is updated to hold a new 
page count and the patch area size in the image header is increased. 

f the patch area is not the highest address used, then the patch area 
must be relocated to another area, which will be contiguous. This 
involves expanding the program region, copying in the old patch area, 
and then changing the image section table entry to point to a new 


SN NN NINA A AOAOm BAVA 


MEW OS ODNAUE WN 0 ODNAUE WN 9 OONAUE WN SO ODNAUES WN" OOONOUS WO” 


uw“ 


SIDE EFFECTS: 
A new patch area is set up. The image header is updated to 
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a ee a ed ed od 8d 2d od ed od od 8 = 8d a 8 2 8 I 
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' 
i 
i 
i 
i 
i 
i 
i 
6 
6 ! 
6 : 
' 
i 
i 
i 
i 
2 6 : mapped address. The image header and image section descriptor counts 
§ are incremented as above. 
2 : NOTE: The patch area must be mapped gots riety in order for 
2 : the mapping of addresses to work. It could also be accomplished 
2 ; if two image section table entries were created. However, this 
3 would require an extra, unneccessary image section descriptor. 
2 7 : Some of the PATCH commands which deposit symbolic instructions do an 
2 7 : PATSEXPAREA just to force the address to be non-zero so that 
? i the symbolic instruction encoder can correctly encode operands. 
: : } FORMAL PARAMETERS: 
3 8 ‘ NUM_BLKS = Number of blocks to be allocated for the patch area , 
35 8 : ADR -COPT] The address which we will use to propagate the image section 
36 8 ! attributes. 
37 8 ' 
$ } IMPLICIT INPUTS: 
Ms The image header and image section entry table must be set up. 
42 9 ! IMPLICIT OUTPUTS: 
43 9 : 
44 9 ; none 
45 9 : 
46 9 ' ROUTINE VALUE: 
47 9 : 
48 9 : none 
49 9 : 
50 9 ' COMPLETION CODES: 
51 0 : 
52 0 : none 
3 0 : 
4 0 : 
5 0 : 
6 : 
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IF _ .PATSGL_FLAGS CPAT$S_ABSOLUTE) 


= If we're in absolute mode, then someone ha 
THEN SIGNAL (PAT$_DATTOOLNG) ; 


us too long a datum, and the file was expe 
to be expanded (a no no!), return to promp 


'e¢ 
! If this is a non-PIC shareable image we do not expand the patch area to protect images 
! previously Linked age vnet having inconsistent Global Section Descriptors. Else, if it 


' is a PIC shareable image, we may without reservation, expand the patch area. 


Lf (CPATSGL_IMGHDRE 1HD$B_IMGTYPE] EQLU IHDSK_LIM) AND (NOT .PATSGL_IMGHDRCIHD$V_PICIMG))) 
SIGNAL (PATS_EXPSHRPAT+MSGSK_SEVERE); 


06 describe the new patch area. 

& : ** If the file is being patched in absolute mode, we cannot 

9 4 expand the file (it would more than Likely corrupt it!). , 

10 : In this instance, we'll abort the command back to the patch 

12 command prompt via an error severity signal. 

lea 

4 

2 BEGIN 

7 BUILTIN 

3 NULLPARAMETER; 

0 2 LITERAL 

1 START OFF = 0, ! Offset to starting address 
; END_OFF = 1; ! Offset to ending address 

4 LOCAL 

5 ISE_PTR : REF BLOCKC,BYTE), ! Pointer to image section table entry 
6 ISD_PTR : REF BLOCK(,BYTEJ, ! Pointer to image section descriptor 
f MAPPED_ADDR; ! Mapped address 

9 

0 

1 

2 

3 

4 

5 

6 

7 

8 

9 

0 
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1 
2 ee 
3 ! If there is no patch area defined yet, then build an image section table 
232 : entry and an image section descriptor for it. 
597 6 3 IF (.PATSGL_IHPPTRCIHPSL_RW_PATADR] EQLA 0) 
598 7 THEN 
599 8 BEGIN 
600 9 'e+ : 
rt 39 Build an Image Section table entry as no Patch Area was defined. 
60 26 IF NULLPARAMETER (2) 
604 5 THEN PATSBUILD_ISE(ISE_PTR, .PATSGL_NEWVPNMX+1, .PATSGL_NEWVBNMX+1, .NUM_BLKS) 
605 54 ELSE PATSBUILD_ISECISE PTR, .PATSGL_NEWVPNMX*+1, .PATSGL_NEWVBNMX*1, .NUM_BLKS, .ADR); 
606 55 ISD_PTR = CHSPTR(.ISE_PTR, ISESC_SIZE); 
607 56 ND 
608 57 ELSE 
609 58 BEGIN 
610 59 'e+ 
oi) 1 Find the image section table entry which describes the patch area. 
£18 62 PATSMAP_ADDR(.PATS$GL_IHPPTRCIHPSL_RW_PATADR], MAPPED_ADDR, ISE_PTR); 
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“PAGCNT] + .NUM_BLKS; ! Expand size of image section 


'e¢ 
: Update the VPN and VBN for the Last ones used in the new image for 
the image section. 


PATSGL_NEWVPNMX = .PATSGL_NEWVPNMX + .NUM_BLKS; 
PATSGL_NEWVBNMX = .PATSGL-NEWVBNMX + .NUM~BLKS; 
e+ 


! Now create the patch area, ji.e., map it into the image. This is done 


! with an expand region instead of a create and map as the area is not defined 
! in the old image. 
PATSGL_ERRCODE = SEXPREG(PAGCNT = 

» RETADR 
co -PATSGL_ERRCODE 


SIGNAL (PAT$_SYSERROR, 0, .PATSGL_ERRCODE); 


-1SD_PTRCISD$W_PAGCNT] 
= PATSGL_ISVADDR); 


les 
! if the patch area was expanded, and not created, then copy in the old 
patch area part. 


IF (-1SD_PTRCISDSW_PAGCNT] NEQ .NUM_BLKS) 


CHSMOVE ((.1SD_PTREISD$W_PAGCNT) = .NUM_BLKS) * A_PAGE 
-ISEZPTRCISESL-MAPVSTJ, .PATSGL_ISVADDRESTART_OFFJ); 


'e¢ 
Initialize the image section table entry. 


ee 
Increment the number of blocks in the new image. 


PATSGL_IMGBLKS = .PATSGL_IMGBLKS + .NUM_BLKS; 


‘ee 
Update the patch area descriptor in the image header. 


PATSGL_PATAREALDSC$wW_LENGTH] = .PATSGL_PATAREACDSCS$W_LENGTH] * (.NUM_BLKS * A_PAGE); 
HF A -PATSGL _PATAREACDSCSA_ POINTER) EQLA 0) 


PATSGL_PATAREACDSCSA_POINTER]) = .ISE_PTRCISESL_IMGVST); 


ee 
Now update the patch area List entry for the default patch area, 


PATSADD_PAL(.ISE_PTRCISESL_IMGVST], .ISE_PTRCISESL_IMGVEND], PALSK_EXP_PAREA); 
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675 1822 1 END; 
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! END OF PATSEXP_AREA 


SYSSEXPREG 


parsext AREA, Save R2,R3,R4,R5,R6,R7,R8,R9,= 


PAT$GL_NEWVBNMKX, “ght 


[555 ,OM.. RS 
#6 PalsGL FLAGS, 1$ 


7 7176 
OF aSSIGNAL 
Patscl IMGHDR, RO 


2$ 

#3, 32(R0), 28 
#7176914 

#1, L1B$S1GNAL 
NUM_BLKS, R 
PATSGL IHPPTR, RO 


4S 

#1, PATSGL_NEWVBNMX, R1 
#1, PATSGL-NEWVPNMX, RO 
(AP), #2 

(AP) 

#°M<RO,R1,R7> 

SE_PTR 

#4, ~PATSBUILD_ISE 

5$ 

ADR 

#°M<RO,R1,R7> 

SE_PTR 

#5, “PATSBUILD_ISE 
#26, ISE_PTR,~I1SD_PTR 
7$ 

SP 
MAPPED. ADDR 

¢ (RO) 

PATSMAP ADDR 
; 6, ise SE PIR, ISD_PTR 
* SATScL _NEWVPNMX 

nee PATS$GL—NEWVBNMX 

9 

2(1SD prR) anes?) 


#4, SYSSEXPREG 
RO, SATE  ERRCODE 
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330 bytes, Routine Base: 
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GLOBAL ROUTINE PATSADD_PAL (START_ADR, END_ADR, PAT_AREA_FLAG) : NOVALUE = ! EXPANDS PATCH AREAS 


le 


FUNCTIONAL DESCRIPTION: 


THIS ROUTINE sedi 
ge: rte ENTRY F 
IT AND CREA a? EN R 
COMMAND. THE F 


IR 
THE PATCH AREA L] 
PATCH AREA TO TH WS 
FIE 

XT 


-. 
EFAULT PATCH AREA rent, Baca 


NS T 
OR T 
IE 
EN 
1S TO CORRECTLY OUTPUT ADDR 
TP MAND FILE. THESE ADDRES 
AS L LUS OFFSETS B 
MA A E 
— NEXT FREE H AREA AD T 
AREA ADDRESSES AS SYMBOLIC NAMES, PA 
USE DIFFERENT PATCH AREA ADDRESSES. 


AN ENTRY IN THE PATCH AREA LIST HAS THE FOLLOWING FORMAT: 


+ 
i FORWARD LINK {+ PALSL_FLINK 


Se eR ES Se OR KR RO Be EHO eet 


: STARTING ADDRESS | PALSL_ST_ADR 


werent eww ese ewe ese ee een eee eee oe + 


t ENDING ADDRESS : PALSL_END_ADR 


- 
' PATCH AREA NAME ; PALSL_CS_NAME 


$oweeeceeeecescoccccoascescca 


i 

1 

! 

! 

! 

' 

! 

' 

! 

' 

! 

! 

! 

! 

1 

! 

! 

! 

! 

1 

! 

! 

' 

! 

' 

i THE PATCH AREA NAME CONSISTS OF AN ASCIC STRING, WHICH IS ALWAYS A 
i COUNT OF THREE FOLLOWED, By THE ASCII CHARACTERS "P'’, “'A‘, AND A THIRD 
i CHARACTER RANGING FROM "‘A'' TO "'Z''. THIS NAME IS USED TO OUT 

i SYMBOLIC REFERENCES TO THE OUTPUT COMMAND FILE FOR ALL ADDRESSES WITHIN 
THE PATCH AREAS INSTEAD OF ABSOLUTE VALUES. 

! 
! 
' 
' 
' 
! 
' 
! 
1! 
' 
a 
' 
' 
i 
! 
' 
' 
‘ 
' 
' 
' 


THIS ROUTINE ALSO CAUSES A SYMBOL TO BE DEFINED FOR THE STARTING ADDRESS 
OF THE PATCH AREA. 


i FORMAL PARAMETERS: 


START_ADR = STARTING ADDR 
END_ADR = ENDING ADDRESS 
PAT TAREA_FLAG = INDICATOR 

PALSK_EXP_ 
PALS =ADD_ 


AUPDA TE 
1 = EXPANDING DEFAULT PATCH AREA 
0 = ADDING NEW PATCH AREA ENTRY 


i IMPLICIT INPUTS: 
THE FREE STORAGE ROUTINES MUST HAVE BEEN INITIALIZED. 
i IMPLICIT OUTPUTS: 
i NONE 
' ROUTINE VALUE: 


ee ee ee ee ee Lee SS 
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NONE 
COMPLETION CODES: 

. NONE 

. SIDE EFFECTS: 

THE PATCH AREA 
! 
' 
! 


A NEW LINK IS C 
1S ALSO UPDATED 


ER AN ENTRY IS MODIFIED OR 
CASE, THE NEXT PATCH AREA NAME 
NAME IS ALSO UPDATED. 


' reaperery oor seni ointer 
YTE) ! O NEW PAL 
BYTE), i POINTER TO CURRENT UTEN NTRY 
TE); ' STRING DESCRIPTOR FOR’ DEFAULT PATCH AREA NI 


S 
NEW PTR : REF BLOCKL 
TERP. PTR : REF BLOCK ke, 
AME-DESC : BLOCKL8,BY 


lee 

! FIRST, keke eee a PATCH AREA LIST TRYING TO FIND AN ENTRY og HIS 

' PATCH AREA E., HAS THIS PATCH AREA JUST BEEN EXPANDED. IF SO, UPDATE 

& THE PAL ENTRY’ AND RETURN. IF NOT, FALL THROUGH TO CREATE A NEW baL PENTRY. 


TEMP SYMTB = .PAT$GL_SYMTBPTR; ! Remember current Label symbol table 
cers PTR = CHSPTR(.PATSGL_PAL_LHD, 0)) NEQ 0 ! GET FIRST ENTRY IN LIST 


REPEAT 
rae 


lr THE DEFAULT PATCH AREA WAS CREATED —_ BOTH im aie 
AND ENDING ADDRESSES MUST BE RESET. {F THE DEFAULT PATCH 

! AREA WAS oa eerie THEN THE STARTING ADDRESS REMAINS THE 

i SAME AND THE ENDING ADDRESS IS UPDATED. THIS WILL NEED 

SOME NEW INVENTION WHEN READ-ONLY. PATCH AREAS ARE 

ALSO ADDED. 


5 sal pet EQL PALSK_EXP_PAREA 


BEGIN 
Hl PTRCPALSL_END_ADR] = .END_ADR; 
ae PTRCPALSL_START _ADRJ FOLA’0 


MIMIMINPIMIPYNIDD A | | “DOC COCOCOCOCOCCOCOVOOVOO OOO ODWMWBOWWOOOMwo 
NOU EWR 0 DOONAN EWN (OOO NOA UEFA 0 OD WAU EAR SO OONOUS WO 


BEGIN 
TEMP mas! 


Pp R) = 1 ADR: 

ct z “pA TREK 
omy apest 

NE 

YM 


= CHBBTRCTEMP, ae Oi atsi _CS_NAME 1, . 
men ADR, FALSE); 


e 

* 

2 
> 
= 
7 
= 
= 
pas 


A 
D 
Dd 
PAT Yat 
PATSDEFIN 
PATSGL _5Y 


L 

5 

§ 

Es 

TB 
RETURN; 

IF (.START_ADR GEQA .TEMP_PTRCPALSL_START_ADR]) AND 
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; 789 1937 4 (.END_ADR EQLA .TEMP_PTRCPALS$L_END_ADRJ) 

; 790 1938 THEN 

; 791 1939 RETURN; 

: 79 1940 IF_.TEMP_PTRCPALSL_FLINK] NEQA 0 

: 79 1941 TH 

; 794 1 “¢ TEMP_PTR = .TEMP_PTRCPALSL_FLINK] 

3; 795 194 ELSE 

; 796 1944 EXITLOOP; 

Se 1945 END; 

; 798 1946 

; 799 1947 'e+ 

3 Boy i re hes THERE WAS NO CORRESPONDING PAL ENTRY. THEREFORE A NEW ENTRY MUST BE CREATED. 
; 802 1950 NEW PTR = PATSFREEZ((PALSC_SIZE + A_LONGWORD - 1)/A_LONGWORD); ! ALLOCATE SPACE FOR NEW ENTRY 
3 ty : 3 IF - TEMP_PTR EQLA 0 

; 805 1 26 PATSGL_PAL_LHD = CHSPTR(.NEW_PTR, 0) ' SET THE LIST HEAD 

; 806 1954 § ELSE 

: 807 1955 TEMP_PTRCPALSL RLINK) = .NEW_PTR; ' LINK IN NEW ENTRY 

: 08 1956 2 NEW _-PTRCPALSC_ START_ADR]) = Ant _ADR:; ' SET STARTING PATCH AREA ADDRESS 
; 809 1957 2 NEW PTRCPALSL END ABR) = SADR: ' SET ENDING Se hee AREA ADDRESS 
: 81 1958 2 CHSMOVE(A tONCHORD. oat nie. RAME , NEW_PTRCPAL$L_CS_NAME]); ' SET PATCH AREA NAME 

3 1959 2 PATSGLS YATBPTR = .PATS$GL_S ' Use tet og ache symbol table 
PY 1960 2P ATSBEFINE SYM(PA NAME EOS. yh “PTREPALSL_ START_ADRI, yg ' DEFINE SYMBOL AS START OF PATCH AREA 
: 1961 2 PATSGL SYMTBPTR = .TEMP_SYMTB; ' Restore Label symbol table 

: ; $e $ PAT_AREA_NAME(3] = .PAT_AREA _NAMEL3) + 1; ' SET NEW PATCH AREA NAME 

3 1964 2 

3 1 2 

4 196 $ 

; : 68 2 

3 i 5 

2 1 : 

; 1 3 

5 1 3 

: 1 2 

: 1 2 

: 1 2 

3 1 2 

® 1 1 


WOOOOOOOOOOOODOODOODDOOOOOOCOOODODOOOOOOONOOO 


8 
810 
811 
812 
813 
814 
815 
816 4 'ee 
817 5 i NOW — THAT THE NEXT PATCH AREA NAME IS BETWEEN os AND ''PAZ''. IF 
818 5 i IT 1S NOT, THE RESET THE THIRD CHARACTER OF THE NAME TO AN "‘A'’ AND 
819 7 i INCREMENT "THE SECOND LETTER OF THE NAME. THIS WILL ALLOW” THE USER TO DEFINE 
820 68 i UP TO 676 PATCH AREAS. 
822 70 if PAT. AREA_NAMEL3] GTRU (%ASCII'Z") ' CHECK FOR OVERFLOW OF PATCH AREA NAMES 
B24 7 BEGIN 
825 7 PAT_AREA_NAME[2] = .PAT AREA rNAMEC2] + 1; ' INCREMENT THE "‘A"’ OF PAZ’ 
826 7 PATAREA_NAMEL3] = (XASTII i CHANGE THE ‘'2"* TO A "A 
828 76 
829 77 2 RETURN; 
830 78 
831 79 END; ' END OF PATSADD_PAL 
01FC 00000 .ENTRY PATSADD_PAL, Save R2,R3,R4,R5,R6,R7,RB > 1823 
58 000000006 EF 9E 0002 MOVAB PATSDEFINE SYM, R ; 
57 00000000G EF 9 0000 MOVAB PATS$GL_SYMREAD, R7 : 
56 00000000G EF 9E 00010 MOVAB PAT$GL“PAL_LHD, R6 : 
55 000000006 EF 9E 00017 MOVAB PATSGL™SYMTBPTR, RS ; 
54 00000000' ai 9 OO1g HOVAB Pat LAREA_NAME+3, R4 : 
3E : C 902 SUBL : 
5 65 DO 00028 MOVL PATSeL _SYMTBPTR, TEMP_SYMTB : 1907 
52 66 DO 00028 MOVL PATSGL~PAL_LHD, TEMP_PTR : 1908 
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PATSPA -1984 00:57:14 VAX-11 Bliss-32 V4.0-742 24 

v04=000 14- ~3eP71382 9 12:52:47 ISKSVMSMASTER: CPATCH.SRCIJPATSPA. p3204 * 6) 
47 13 000 F BEQL 4$ : 

01 0c at p] 98 0 1$ CHPL BATLAREAFLAG, #1 : 1920 

08 A2 08 * DO 00036 MOVL END_ADR, 8(TEMP_PTR) 3 1923 

04 Ae p 03 8 iste Pte P PTR) + 1924 

06 A2 AC D $028 MOVL START_ADR, Abi Tene PTR) + 1927) 

6E FD AG 9B BO042 MOVZBW PAT_AREA_NAME, NAME _DESC : 1928 

04 A Ag 9E 00049 MOVAB 13(R2), RAM AME DESC«4 : 1929. 

6 67 DO 0004E MOVL PATS$GL_ *SYMHEAD, PAYSGL_SYMTBPTR : 1930 

7E 04 00051 CLRL -(SP) ~ : 1931 
046 AC ODD 90033 PUSHL START_ADR : 
08 a 9F 00056 PUSHAB NAME_BES : 

68 03 FB 00059 CALLS #3, PATSDEF INE : | 

65 53 pO 0005C MOVL TEMP_SYMTB, PATSGL. SYMTBPTR : 1932. 

04 0005F RET : 1922 

04 A2 04 AC D1 00060 2$ CMPL START_ADR, 4(TEMP_PTR) : 1936) 

07 1F 00065 BLSSU 3$ : 

08 A2 08 AC D1 00067 CMPL END_ADR, 8(TEMP_PTR) 3 1937. 
48 13 0006C BEQL 7 : 

62 DS OO06E 3$ TSTL (TEMP_PTR) 3 1940 

05 13 00070 BEQL 84 : 

52 62 00 00072 MOVL (TEMP_PTR), TEMP_PTR 3 1942) 

B9 11 00075 BRB 1$ ; 

04 DD 00077 4$ PUSHL #4 : 1950. 

00000090G_ EF 01 FB 00079 CALLS #1, PATSFREEZ 5 

52 D5 00080 TSTL TEMP_PTR : 1951) 

05 12 00082 BNEQ : 

66 50 D0 00084 MOVL NEW_PTR, PATS$GL_PAL_LHD 3 1953) 

03 11 00087 BRB r 

62 50 00 00089 5$ MOVL NEW_PTR, (TEMP pT) 7 1955) 

04 Ad 04 AC 7D O0O08C 6$ MOVQ START_ADR, 4(NEW PTR) : 1956) 

0c ad FD A& DO 00091 MOVL PAT_AREA_NAME, TOCNEW 3: 1958. 

65 67 DO 00096 MOVL PATSGL _SYMHEAD, PATSCL SYMTBPTR 3 1959 | 

7E 04 00099 CLRL -(SP) 3 1960 | 

04 Ad DD 00098 PUSHL 4(NEW PTR) : 

01 AS YF 0009E PUSHAB PA_NAME_DSC : 

68 03 FB OO0A1 CALLS +A NOATSDEF 1 3 

65 53 DO OO0A4 MOVL TEMP SYNTB ieirser _SYMTBPTR : 1961) 

64 96 000A7 INCB PAT_AREA_NAME+3 3 1962. 

SA BF 64 91 O00A9 CMPB PAT_AREA_ “NAMES3, #90 ; 1970 | 

07 1B QOOAD BLEQU 7$ ~ : 

FF A& 96 OOOAF INC PAT_AREA_NAME +2 : 1973. 

64 41 8F 90 000B2 MOVB #657 PAT_AREA_NAME+3 > 1974 | 

04 00086 7$: RET : 1979) 


; Routine Size: 183 bytes, Routine Base: _PATSCODE + 0330 


; Elapsed F tase 
; Lines/CPU Min: 


1980 END 
1981 0 ELUDOM 
PSECT SUMMARY 
Bytes Attributes 
12 NOVEC, WRT, RD ,NOEXE,NOSHR, 
116 NOVEC.NOWRT, ss »NOEXE ,NOSHR, 
999 NOVEC,NOWRT, RD EXE,NOSHR, 
0 NOVEC,NOWRT,NORD *NOEXE.NOSHR, 
Library Statistics 
pepe Symbols wcoeeee= 
Total Loaded Percent 
~$255$DUA28: CSYSLIBILIB.L32;1 18619 31 0 


COMMAND QUALIFIERS 


999 code + 128 data bytes 
0:34.2 
0 i% 8 
479 


: Louenes/(PY-Btas 37166 
; 213 pages 
tion “Complete 


4 00:32:16 VAX-11 Bliss-32 V4.0-742 
4 12:52:47 DISKSVMSMASTER: (PATCH. SRCIPATSPA.B32, ha 


! End of module 


~EXTRN LIBSSIGNAL 


LCL, REL, CON,N 
LCL, REL, CON,N 
LCL, REL, CON,N 
LCL, ABS, CON,N 

Pages Processing 
Mapped ime 

1000 00:01.8 


BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/VARIANT:1/LIS=LIS$:PATSPA/OBJ=OBJ$:PATSPA MSRC$:PATSPA/UPDATE=(ENH$:PATSPA) 
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